home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh20a.d64 / listing 11 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  476b  |  13 lines
  1. 10 PRINTCHR$(147)       :REM BILDSCHIRM LOESCHEN
  2. 20 POKE 2040,13         :REM DATEN SPRITE 0 AUS BLOCK 13
  3. 30 FOR I=0 TO 62:POKE 832+I,129:NEXT:REM SPRITEDATEN EINTRAGEN
  4. 40 V=53248              :REM STARTADRESSE DES VIDEOCHIP
  5. 50 POKE V+21,1          :REM SPRITE 0 EINSCHALTEN
  6. 60 POKE V+39,1:POKE V+23,1:POKE V+29,1:REM SPRITE 0 FARBE GEBEN UND VERGROESSERN
  7. 70 POKE V+1,100         :REM SPRITE 0 Y-POSITION
  8. 80 J=488
  9. 90 HX=INT(J/256):LX=J-256*HX
  10. 100 POKE V,LX:POKE V+16,HX
  11. 110 J=J+1:IF J>511 THEN J=0
  12. 120 IF J>488 OR J<348 THEN 90
  13.